object Form1: TForm1
  Left = 358
  Top = 223
  Width = 870
  Height = 640
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object StatusBar: TJvStatusBar
    Left = 0
    Top = 583
    Width = 854
    Height = 19
    Panels = <>
  end
  object pnlDownPanel: TPanel
    Left = 0
    Top = 533
    Width = 854
    Height = 50
    Align = alBottom
    BevelOuter = bvNone
    BorderStyle = bsSingle
    TabOrder = 1
    OnResize = pnlDownPanelResize
    object pnlInLedPanel: TPanel
      Left = 0
      Top = 0
      Width = 385
      Height = 46
      Align = alLeft
      BevelOuter = bvNone
      Constraints.MinWidth = 250
      TabOrder = 0
      object lbl2: TLabel
        Left = 102
        Top = 8
        Width = 20
        Height = 13
        Caption = 'DTR'
      end
      object lbl3: TLabel
        Left = 141
        Top = 8
        Width = 20
        Height = 13
        Caption = 'DSR'
      end
      object lbl4: TLabel
        Left = 182
        Top = 8
        Width = 19
        Height = 13
        Caption = 'RTS'
      end
      object lbl5: TLabel
        Left = 221
        Top = 8
        Width = 19
        Height = 13
        Caption = 'CTS'
      end
      object ledInCts: TiLedRound
        Left = 220
        Top = 25
      end
      object ledInRts: TiLedRectangle
        Left = 180
        Top = 25
        CenterLabelFont.Charset = DEFAULT_CHARSET
        CenterLabelFont.Color = clWindowText
        CenterLabelFont.Height = -11
        CenterLabelFont.Name = 'Tahoma'
        CenterLabelFont.Style = []
      end
      object ledInDtr: TiLedRectangle
        Left = 100
        Top = 25
        CenterLabelFont.Charset = DEFAULT_CHARSET
        CenterLabelFont.Color = clWindowText
        CenterLabelFont.Height = -11
        CenterLabelFont.Name = 'Tahoma'
        CenterLabelFont.Style = []
      end
      object ledInDsr: TiLedRound
        Left = 140
        Top = 25
      end
      object btnOpenInPort: TiSwitchLed
        Left = 10
        Top = 9
        Width = 70
        Caption = #1054#1090#1082#1088#1099#1090#1100
        CaptionFont.Charset = DEFAULT_CHARSET
        CaptionFont.Color = clWindowText
        CaptionFont.Height = -11
        CaptionFont.Name = 'Tahoma'
        CaptionFont.Style = []
        CaptionMargin = 2
        BorderSize = 2
        BorderHighlightColor = clBtnHighlight
        BorderShadowColor = clBtnShadow
        OnChangeUser = btnOpenInPortChangeUser
        TabOrder = 4
        Caption_2 = #1054#1090#1082#1088#1099#1090#1100
      end
      object btnMacros: TiSwitchLed
        Left = 258
        Top = 9
        Width = 70
        Caption = #1052#1072#1082#1088#1086#1089
        CaptionFont.Charset = DEFAULT_CHARSET
        CaptionFont.Color = clWindowText
        CaptionFont.Height = -11
        CaptionFont.Name = 'Tahoma'
        CaptionFont.Style = []
        CaptionMargin = 2
        BorderSize = 2
        BorderHighlightColor = clBtnHighlight
        BorderShadowColor = clBtnShadow
        OnChangeUser = btnMacrosChangeUser
        TabOrder = 5
        Caption_2 = #1052#1072#1082#1088#1086#1089
      end
    end
    object pnlOutLedPanel: TPanel
      Left = 385
      Top = 0
      Width = 465
      Height = 46
      Align = alClient
      BevelOuter = bvNone
      Constraints.MinWidth = 250
      TabOrder = 1
      object lbl6: TLabel
        Left = 100
        Top = 8
        Width = 20
        Height = 13
        Caption = 'DTR'
      end
      object lbl1: TLabel
        Left = 140
        Top = 8
        Width = 20
        Height = 13
        Caption = 'DSR'
      end
      object lbl7: TLabel
        Left = 181
        Top = 8
        Width = 19
        Height = 13
        Caption = 'RTS'
      end
      object lbl8: TLabel
        Left = 245
        Top = 8
        Width = 19
        Height = 13
        Caption = 'CTS'
      end
      object btnString: TSpeedButton
        Left = 296
        Top = 12
        Width = 81
        Height = 22
        Caption = #1057#1090#1088#1086#1082#1072
        OnClick = btnStringClick
      end
      object btnOpenOutPort: TiSwitchLed
        Left = 10
        Top = 9
        Width = 70
        Caption = #1054#1090#1082#1088#1099#1090#1100
        CaptionFont.Charset = DEFAULT_CHARSET
        CaptionFont.Color = clWindowText
        CaptionFont.Height = -11
        CaptionFont.Name = 'Tahoma'
        CaptionFont.Style = []
        CaptionMargin = 2
        BorderSize = 2
        BorderHighlightColor = clBtnHighlight
        BorderShadowColor = clBtnShadow
        OnChangeUser = btnOpenOutPortChangeUser
        TabOrder = 0
        Caption_2 = #1054#1090#1082#1088#1099#1090#1100
      end
      object ledOutRts: TiLedRectangle
        Left = 180
        Top = 25
        OnClick = ledOutRtsClick
        CenterLabelFont.Charset = DEFAULT_CHARSET
        CenterLabelFont.Color = clWindowText
        CenterLabelFont.Height = -11
        CenterLabelFont.Name = 'Tahoma'
        CenterLabelFont.Style = []
      end
      object ledOutDtr: TiLedRectangle
        Left = 100
        Top = 25
        OnClick = ledOutDtrClick
        CenterLabelFont.Charset = DEFAULT_CHARSET
        CenterLabelFont.Color = clWindowText
        CenterLabelFont.Height = -11
        CenterLabelFont.Name = 'Tahoma'
        CenterLabelFont.Style = []
      end
      object ledOutDsr: TiLedRound
        Left = 140
        Top = 25
      end
      object ledOutCts: TiLedRound
        Left = 257
        Top = 25
      end
      object chkOutRtsCts: TCheckBox
        Left = 220
        Top = 26
        Width = 17
        Height = 17
        TabOrder = 5
      end
    end
  end
  object mmData: TJvMemo
    Left = 0
    Top = 67
    Width = 854
    Height = 466
    Align = alClient
    ScrollBars = ssVertical
    TabOrder = 2
  end
  object pnl1: TPanel
    Left = 0
    Top = 26
    Width = 854
    Height = 41
    Align = alTop
    TabOrder = 3
    object cbInPort: TComboBox
      Left = 24
      Top = 8
      Width = 145
      Height = 21
      ItemHeight = 13
      TabOrder = 0
      Text = 'cbInPort'
      OnChange = cbInPortChange
      OnDropDown = cbInPortDropDown
    end
    object cbOutPort: TComboBox
      Left = 184
      Top = 8
      Width = 145
      Height = 21
      ItemHeight = 13
      TabOrder = 1
      Text = 'cbOutPort'
      OnChange = cbOutPortChange
      OnDropDown = cbOutPortDropDown
    end
    object btn1: TButton
      Left = 760
      Top = 8
      Width = 75
      Height = 25
      Caption = #1054#1095#1080#1089#1090#1080#1090#1100
      TabOrder = 2
      OnClick = btn1Click
    end
    object btn2: TButton
      Left = 672
      Top = 8
      Width = 75
      Height = 25
      Caption = #1057#1086#1093#1088#1072#1085#1080#1090#1100
      TabOrder = 3
      OnClick = btn2Click
    end
  end
  object ActionMainMenuBar1: TActionMainMenuBar
    Left = 0
    Top = 0
    Width = 854
    Height = 26
    UseSystemFont = False
    ActionManager = actmgr1
    Caption = 'ActionMainMenuBar1'
    ColorMap.HighlightColor = clWhite
    ColorMap.BtnSelectedColor = clBtnFace
    ColorMap.UnusedColor = clWhite
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = 'Segoe UI'
    Font.Style = []
    Spacing = 0
  end
  object actmgr1: TActionManager
    ActionBars = <
      item
        Items = <
          item
            Items = <
              item
                Action = actInputPort
              end
              item
                Action = actOutputPort
              end
              item
                Action = FileExit1
                ImageIndex = 43
              end>
            Caption = '&File'
          end
          item
            Items = <
              item
                Action = actInputPort
              end
              item
                Action = actOutputPort
              end
              item
                Action = FileExit1
                ImageIndex = 43
              end>
            Caption = 'F&ile'
          end>
      end
      item
        Items = <
          item
            Items = <
              item
                Action = actInputPort
              end
              item
                Action = actOutputPort
              end
              item
                Action = actLogFile
                Caption = '&Log File'
              end
              item
                Action = FileExit1
                ImageIndex = 43
              end>
            Caption = '&File'
          end>
        ActionBar = ActionMainMenuBar1
      end>
    Left = 32
    Top = 472
    StyleName = 'XP Style'
    object actInputPort: TAction
      Category = 'File'
      Caption = #1042#1093#1086#1076#1085#1086#1081' '#1087#1086#1088#1090
    end
    object actOutputPort: TAction
      Category = 'File'
      Caption = #1042#1099#1093#1086#1076#1085#1086#1081' '#1087#1086#1088#1090
    end
    object actLogFile: TAction
      Category = 'File'
      Caption = 'Log File'
      OnExecute = actLogFileExecute
    end
    object FileExit1: TFileExit
      Category = 'File'
      Caption = #1042#1099#1093#1086#1076
      Hint = 'Exit|Quits the application'
      ImageIndex = 43
    end
  end
  object InPort: TBComPort
    BaudRate = br4800
    ByteSize = bs8
    InBufSize = 2048
    OutBufSize = 2048
    Parity = paNone
    Port = 'COM6'
    SyncMethod = smThreadSync
    StopBits = sb1
    Timeouts.ReadInterval = -1
    Timeouts.ReadTotalMultiplier = 0
    Timeouts.ReadTotalConstant = 0
    Timeouts.WriteTotalMultiplier = 100
    Timeouts.WriteTotalConstant = 1000
    OnCTSChange = InPortCTSChange
    OnDSRChange = InPortDSRChange
    OnRxChar = InPortRxChar
    Left = 80
    Top = 472
  end
  object OutPort: TBComPort
    BaudRate = br4800
    ByteSize = bs8
    InBufSize = 2048
    OutBufSize = 2048
    Parity = paNone
    Port = 'COM3'
    SyncMethod = smThreadSync
    StopBits = sb1
    Timeouts.ReadInterval = 5
    Timeouts.ReadTotalMultiplier = 0
    Timeouts.ReadTotalConstant = 0
    Timeouts.WriteTotalMultiplier = 100
    Timeouts.WriteTotalConstant = 1000
    OnCTSChange = OutPortCTSChange
    OnDSRChange = OutPortDSRChange
    OnRxChar = OutPortRxChar
    Left = 128
    Top = 472
  end
  object dlgOpenLogFile: TOpenDialog
    Filter = 'txt|*.txt|log|*.log|*.*|*.*'
    Left = 184
    Top = 472
  end
  object tmrMacros: TTimer
    Enabled = False
    OnTimer = tmrMacrosTimer
    Left = 248
    Top = 472
  end
end
